-- card: 2215 from stack: in
-- bmap block id: 6617
-- flags: 0000
-- background id: 2679
-- name: Resource Copier


-- part 1 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=75 top=194 right=216 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Copy DoList
----- HyperTalk script -----
on mouseUp  --DO NOT CHANGE LINE 2! IT IS MODIFIED BY ANOTHER SCRIPT!
  put "HD20:HyperCard & Stacks:HyperCard Stacks:HyperList" into sourceStack
  set the cursor to 4
  put the long name of this stack into destStack
  delete first word of destStack
  delete first character of destStack
  delete last character of destStack
  if sourceStack<>destStack then
    set lockscreen to true
    set lockmessages to true
    push this card
    go stack sourceStack
    ResCopy sourceStack,destStack,"XCMD","DoList"
    get the result
    -- here is where you would copy more resources.
    pop card
    choose button tool
    click at location of card button "Copy DoList"
    domenu clear button
    choose browse tool
    set lockmessages to false
    set lockscreen to false
    if first char of it is "E" then
      -- you could put better error handling here
      put it into the message box
    end if
  end if
end mouseUp




-- part contents for background part 5
----- text -----
  Resource Copier:

  The button below offers a method for copying the DoList command into another stack, without using ResEdit. To use DoList in one of your own stacks, simply COPY (do not cut) the button below and go to any card in the stack in which you wish to use DoList. Paste the button into the stack, change back to the browse tool, and click on the button. The button will dissappear, and DoList will then be ready for use in that stack!




  For more information on the Resource Copier, see my stack named Resource Copier.




-- part contents for background part 8
----- text -----
Page 11